home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / pixie.cpt / Pixie Scheme ƒ / Pixie Scheme Help / card_55982.txt < prev    next >
Encoding:
Text File  |  1991-01-07  |  1.5 KB  |  71 lines
  1. -- card: 55982 from stack: in
  2. -- bmap block id: 76241
  3. -- flags: 0000
  4. -- background id: 2692
  5. -- name: 
  6.  
  7.  
  8. -- part 8 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=141 top=297 right=319 bottom=288
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Find marked line
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put the number of this card into startCard
  23.   get selection
  24.   if it is not empty then
  25.     if it contains return then
  26.       put 1 into start
  27.       repeat while char start of selection is return
  28.         add 1 to start
  29.       end repeat
  30.       put start into stop
  31.       repeat number of chars in selection - start + 1
  32.         if char stop of selection is return then exit repeat
  33.         add 1 to stop
  34.       end repeat
  35.       put char start to stop - 1 of selection into searchFor
  36.     else
  37.       put it into searchFor
  38.     end if
  39.     set lockScreen to true
  40.     put "Find Whole" && quote & searchFor & quote
  41.     do message
  42.     if the number of this card is startCard then
  43.       do message
  44.     end if
  45.     hide message
  46.     set lockScreen to false
  47.   end if
  48. end mouseUp
  49.  
  50.  
  51.  
  52. -- part contents for background part 10
  53. ----- text -----
  54.  
  55. infinity
  56. init file
  57. initialization
  58. Insert FileΓǪ
  59. Inspect (Quoted)
  60. Inspecting Scheme Objects
  61. Installation
  62. IEEE floatingΓÇôpoint standard
  63. Known Bugs
  64. Lisp Implementations
  65. Lisp References
  66. Load FileΓǪ
  67. Load WorldΓǪ
  68.  
  69. -- part contents for background part 47
  70. ----- text -----
  71. 316